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EDITORIAL 


Tout d’abord, excusez nous pour le retard survenu pour la parution de ce 
numéro du journal. Sachez seulement qu’il est dû uniquement au fait que 
certains articles des auteurs habituels n’ont pas pu être prêts à temps, fautes de 
problèmes de dernière minute. N’ayant plus de stock d’articles nous permettant 
de modifier au dernier moment le contenu du journal, ce retard devenait 
inévitable. Bien que nous vous ayons alerté maintes fois sur le fait que nous ne 
pouvions pas assurer à nous seuls le contenu du journal, nous n’avons pas été 
suivis. Il est fort regrettable de penser que les prochains journaux auront 
sûrement un retard équivalent, à moins que de nombreux articles arrivent dès les 
prochains jours. De toutes façons nous ne pourrons plus assurer des articles aussi 
longs qu'auparavant, car nous avons tous en projet des réalisations qui nous 
demanderons de beaucoup de travail, et qui paradoxalement ne pourrons 
sûrement pas être publiés, car trop importants. En attendant de voir les résultats, 
il faudra que vous occupiez le terrain ! 


Le grand évenement de ce mois-ci concerne le retour en force de la rubrique 
HP28. Nous ne pouvons qu'être satisfaits de ce fait. Qui a dit que cette machine 
était morte ? 


Un autre point qui nous satisfait pleinement concerne l’arrivée de nouveaux 
auteurs dans les colonnes de ce JPC. Il s’agit d’utilisateurs dont l’adhésion est 
relativement récente, ce qui montre qu’il n’est pas nécessaire d’avoir de longues 
années d’experience pour faire des articles intéressants ! 


Vous constaterez aussi que dans ce numéro, les pages d’informations générales 
sont inexistantes. Ne vous inquiétez pas, elles reviendront en force le mois 


prochain, dès que nous aurons vérifié les nombreuses (et surprenantes) 
informations que nous avons entendu ces jours ci. 


Pour l'instant, nous vous souhaitons une Heureuse Programmation... 


Le bureau 
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TRAITEMENT DE 
DONNEES STATISTIQUES 


L'objet de cet article est de décrire un ensemble de 
petits programmes de traitement numérique et 
graphique de matrices de points en dimension 2 pour 
HP28$. 


Mode d’emploi: 


Le programme principal s'appelle ‘Go’ (dans 
GRAPH/STAT). Avant de le lancer, créer une matrice de 
points (dans le plan 2D). Vous la stockerez dans le 
répertoire GRAPH/STAT/3, pour la préserver de ce qui 
suit. 


La syntaxe que j'ai adopté devant chaque nom d’objet 
est la même que celle présentée par L. Grand dans le 
n°82. 


Le programme 60 va vous permettre de choisir 
l'échelle de concentration affine de votre matrice de 
points pour ensuite visualiser le nuage de points sous 
la forme de points ou de segments. 


Les programmes XY-CM et CM-XY permettent de 
connaître la position d’un point d’une échelle réelle à 
une échelle fixée (en centimètre par exemple, s’il 
s’agit de tracer des points d’une mesure physique sur 
une feuille de papier millimétré). Les données de 
calcul d’échelle sont données dans G0 ou DEFXY. 


Le programme XY-AR est identique à XY-CM, mais 
renvoie le résultat en format complexe, en sommant 
le point dans DAT si elle existe. 


Les programmes AC+AC et AC-+AX transforment une 
matrice entière de points d’une échelle de points à 
l'autre. 


DEFXY permet la saisie des paramètres de calculs 
d'échelle : 


- XMIN : Valeur minorant l’ensemble des abscisses de 
points de la matrice réelle. 

- YMIN : Valeur minorant l’ensemble des ordonnées de 
points de la matrice réelle. 

- XMAX : Valeur majorant l’ensemble des abscisses de 
points de la matrice réelle. 

- YMAX : Valeur majorant l’ensemble des ordonnées de 
points de la matrice réelle. 

- CMX : Largeur en centimètres de votre feuille de 
papier millimétré (si ocMx =0). 

- CMY : Hauteur en centimètres de votre feuille de 
papier millimétré (si oCMY=0). 
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- ocux : Offset de cMX (mis souvent à O). 
- ocmy : Offset de cMY (mis souvent à 0). 


Pour sortir du menu (sachant que des valeurs par 
défaut sont calculées), tapez tshift] [1]. 


LCONCA : Programme permettant la juxtaposition des j 
matrices de ni points en 1 matrice de n1+...+nj 
points. 


BORNS : Sauvegarde la matrice (ou liste de matrices) 
dans la matrice SDAT, et calcule Les valeurs XMIN, 
YMIN, XMAX, YMAX par défaut. 


CoNcA : Comme LCONCA, mais uniquement à partir de 2 
matrices et non d’une liste de matrices. 


DRLIN : Le programme après traçage des points est en 
attente d’un appui sur une des touches : 

- (E] : Effacer cet ensemble de points. 

- {s] : Tracé segment par segment entre points en 
utilisant LINE4 du répertoire GRAPH. 

- [1] : Comme ts] ou l’appui de tout autre touche 
pour continuer. 


RAY : Trace l’ensemble des points de la matrice. 


A+LXY : convertit le format ’matrice de points en 
format ’liste de points’. 


Mon programme utilise LINE4 qui est une adaptation 
quasi-identique de LINE du livre de J.M. Ferrard sur la 
HP28S. L'affichage n’étant pas rapide, existe-t-il une 
autre version plus performante (en language machine 
par exemple) ? 


Liste des programmes: 
Dans le répertoire HOME 


WAITK (+) 
« DO UNTIL KEY END » 


BEEP2 (-) 

« 12 
FOR i i 220 * .1 BEEP 
NEXT 


» 


LSTEX ( 3:Liste d’objets à exécuter 
2:Dimension liste 
1:Objet quelconque + ) 
« + Lst nl prg 
« 
int 
FOR i Lst i GET prg 
IFERR EVAL 
THEN 


DROP 
END 
NEXT 


» 
Dans le répertoire GRAPH 


LINEA ( 4Réel 3:Réel 2:Réel 1:Réel +) 
« + x1 y1 x2 y2 
« 
x1 y1 R-C x2 y2 R-C + p1 p2 
« 
IF pi == 
THEN 
pi PIXEL 
ELSE 
pl p2 - CR ABS SWAP ABS > + flag 
« 
X2 y2 x1 y1 € 2 2 } -ARRY flag 
« 
[[01] 
[101] 


* 


» 
IFT STOZ LR DROP2 PPAR 2 GET PPAR 1 
GET - flag « IM 32 » « RE 137 » 
IFTE / + pas 
« 
2DAT [ 1 0 ] * ARRY+ DROP SWAP DUP2 
IF > 
THEN 
pas NEG ‘pas’ STO 
END 
FOR v v DUP PREDV 
flag « SWAP » IFT R-+C PIXEL 
pas 
STEP 
» 
» 
END 
» 
» 


» 


PPAR 
€ (0,0) (136,31) X 1 (0,0) } 


Dans le sous-sous répertoire GRAPH/STAT 


XY-CM ( 2:Abscisse Réelle 
1:Ordonnée Réelle -+ 
2:Abscisse en cm 
1:Ordonnée en cm) 
«+ X Y 
« 
2 SCI x OFFEX - EX * OCMX + RND y OFFEY - EY * 
OCMY + RND STD 


» 


CM-XY (2:Abscisse en cm 
1:Ordonnée en cm - 
2:Abscisse réelle 
1:Ordonnée réelle ) 
« + CX CY 
« 
2 SCI cx OCMX + EX / OFFEX + RND cy OCMY 
+ EY / OFFEY + RND STD 


XY-AR ( 2:Abscisse Réelle 

1:Ordonnée Réelle -+ 

1:(Abscisse en cm, 1:Ordonnée en cm) ) 
« XY-CM DUP2 R-+C 3 ROLLD 2 -ARRY Z+ » 


AX-AC ( 1:Matrice de points réels de dim. 2 + 
1:Matrice de points en cm) 
« DUP SIZE + m sz 
« 
m STOZ m sz 1 CON OFFEX 0 O OFFEY € 2 2 } 
+ARRY * - EX 0 O EY € 2 2 } -ARRY * sz 
1 CON OCMX O0 O OCMY € 2 2 } +ARRY * + 2 FIX 
» 


» 


AC-AX ( 1:Matrice de points en cm + 
1:Matrice de points réels ) 
« DUP SIZE -+ m sz 
« 
m STOZ m sz 1 CON OCMX 0 O OCMY € 2 2 } 
+ARRY * + EX INV O0 O EY INWC227) 
+ARRY * sz 1 CON OFFEX 0 O OFFEY € 2 2 } 
ARRY * + 2 FIX 
» 


» 


GO ( 1:Matrice ou liste de matrices de points réels +) 
« + id 
« 
Zd BORNS DEFXY Zd DRAWZ 
» 


» 


DRAWE 
« DUP TYPE 
« DUP SIZE » 
« 1 +LIST 1 » 
IFTE CLLCD DRAX LCD+ CLLCD + LZ n il 
« 
LZ 1 GET 
IFn22> 
THEN 
2n 
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FOR k 
LZ k GET CONCA 
NEXT 
END 
DRWA LCD+ 11 XOR +LCD DGTIZ CLLCD i1 +LCD LZ2n 
« DRLIN » 
LSTEX DGTIZ LZ STOZ 


ECHL (-) 

« CMX XMAX XMIN - / ’EX’ STO XMIN ’OFFEX' STO 
CMY YMAX YMIN - / 'EY’ STO YMIN '’OFFEY’ STO XMIN 
YMIN R-+C XMAX YMAX R-C PMAX PMIN 


» 


DEFXY (+) 
« € STO XMIN YMIN XMAX YMAX CMX CMY OCMX OCMY } 
MENU HALT ECHL 
{ 
XY-CM CM-XY XY-+AR AX-AC AC-AX GO 
DRAWZ ZDAT PPAR ECHL DEFXY Z 
} 
DUP VARS 1 12 SUB SAME NOT 
« ORDER » 
« DROP » 
IFTE 


» 


Remarque : Créer le répertoire GRAPH/STAT/Z pour y 
stocker vos matrices de points. 


LCONCA ( 1:Liste de matrices de points -+ 
1:Matrices concaténées ) 
« DUP SIZE + (Zn 
« 
2 1 GT IFn1> 
THEN 
2n 
FOR i 
LE i GET CONCA 
NEXT 
END 
» 


» 


BORNS ( 1:Liste (ou matrice) de points réels -) 
« DUP TYPE 5 == 
« 
LCONCA 
» 
IFT STOZ NE 
« 
MINS MAXE 1 2 
START 
ARRY-+ DROP R-C SWAP 
NEXT 
DUP2 PMAX PMIN CR ‘YMAX’ STO ’XMAX' 
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STO C-R ’YMIN’ STO ’XMIN’ STO 


» 


IFT 


CONCA ( 2:Une matrice de n points 
l'une matrice de p points + 
l'une matrice de (n+p) points } 

«+ ab 

« 
a ARRY+ 1 GET +n 
« 
b ARRY+ 1 GET n + 2 2 -LIST -+ARRY 
» 


» 


DRLIN ( 1:Une matrice de points -) 
« DUP SIZE 1 GET LCD+ + Zdn 
im 
« 
IF n 2 MOD 
THEN 2d 
n 1- GET Zd n GET € 1 2 } -ARRY 
Zd SWAP CONCA ’Zd' STO 
END 
>d DRWA LCD+ € uEn nçsu “Lu + 
WAITK POS DUP O0 == 
« DROP -LCD » 
« 
SWAP DROP 2 > im -LCD 
« 
BEEP2 1 Zd SIZE 1 GET 2 * 2 - 
FOR j 
ii3+ 
FOR jj 
Zd jj GET 
NEXT 
LINE4 2 
STEP 
» 
IFT 
» 
IFTE 


» 


DRWA ( 1:Une matrice de points réels +) 
« > Zdat 


« 


Zdat A+LXY « PIXEL » LSTEX 


» 


A-LXY (1:Une matrice de points + 
2:Liste de points en notation complexe 
1:nombre de points ) 
+8 
« 
a SIZE 1 GT >n 


« 


CG? 1n'2"* 

FOR i 
a i GET a i 1 + GET R-C + 
2 

STEP 


n 


» 


Paul Jebeily (571) 


HP48S RETRO 


Lors de la sortie de la HP28C beaucoup furent 
surpris par les possibilités de cette petite machine 
avec son nouveau langage RPL, mais après 
l'émerveillement arriva rapidement la déception : 
moins de 1700 octets à la disposition de l’usager. Vint 
après la HP28S dont les 32 K de RAM furent les 
bienvenus. Donc des possibilités réelles pour les 
programmeurs et ceux qui utilisent les outils des 
autres. Mais toujours pas de communication avec 
l'extérieur hors la possibilité d’imprimer le contenu 
des objets usuels. Aussi pour les machines saturées de 
programmes et autres objets, il faut faire le ménage 
pour introduire de nouveaux venus, quitte à 
réintroduire par la suite les objets purgés. Pire, pour 
les programmeurs en assembleur, les Memory Lost les 
guettent à tout instant et réduisent à néant de longues 
heures de travail. 


Tout ceci a poussé certains à abandonner, ces petites 
machines non dépourvues de qualités par ailleurs. Le 
double clavier présente des avantages et le format les 
rend discrètes dans une poche. Une fois refermées 
leur écran est bien protégé et enfin n’oublions pas 
qu'avec le programme SPEED elles sont plus rapides 
que les HP48. 


Actuellement beaucoup d’étudiants possèdent une 
HP?28S$, du fait de la décote par l’arrivée des HP48, et 
donc l’alimentation de la rubrique HP28 dans JPC se 
justifie. 


Récemment, j'ai transformé mes deux HP28S pour 
qu’elles puissent communiquer avec l'extérieur. 
J'avais toujours refusé de me lancer dans cette 
aventure, craignant le pire, car inexpérimenté. Or le 
résultat est là: mes deux machines communiquent très 
bien avec un PC ou entre elles et encore avec 
l’imprimante à infrarouge HP. Tout ceci me pousse à 
relancer la rubrique HP28 dans JPC. En effet on peut 
envisager les choses sous deux angles : 


- Ceux qui ne veulent pas transformer leur machine 
mais voudraient encore profiter des programmes en 
assembleur qui étendraient les possibilités de celle-là. 
Il est possible de faire aussi le Coin des codes comme 
pour les HP48, HP-71, PC avec une méthode 
d'introduction des codes fiable. 

- Ceux qui ont transformé leur machine ont la 
possibilté de founir et de recevoir des programmes 
sur disquette et utilisables directement dans les 
HP28$. 


Les possibilités actuelles 


Comme pour les HP48 et l’assembleur, l'ouvrage de 
base en français est: Voyage au centre de la HP28 de 
P. Courbis et S. Lalande. Ceux qui ne l'ont pas 
doivent consulter les rubriques des occasions ou se le 
faire prêter car il est épuisé. 


Depuis la parution de ce livre les connaisances de la 
Rom HP28S se sont élargies grâce au travail des 
courageux et acharnés qui ont étendu le nombre des 
adresses de progammes et routines internes. Ceux qui 
possèdent aussi une HP48 peuvent s’aider de ce qui 
est connu de cette Rom pour rechercher des adresses 
de choses identiques dans les HP28S. 


Concernant la méthode de transformation des HP28 
une méthode bien documentée est fournie dans le 
livre Voyage au centre... Une méthode qui en dérive, 
mais plus sécurisante pour l’ouverture de la machine, 
est celle que préconise Patrice Godard dans sa notice 
intitulée: Ma HP28S Mutante. Cette méthode évite 
tout sciage de la machine mais par contre oblige à 
faire sauter toutes les têtes de rivets en plastique. 
C'est cette méthode que j'ai utilsée et que je 
recommanderais. Il est fourni des programmes de 
communication avec une méthode de contrôle. 
L'auteur mentionne plusieurs noms (pseudonymes) 
qui ont apporté leur contribution. Il est contactable 
sur divers BBS en bal "PAQWAFER". En ce qui concerne 
l'interface série à réaliser j'ai été contraint 
d'abandonner celle décrite dans la notice et 
fonctionnant sans alimentation (ce qui me séduisait) 
pour adopter celle de Au centre. mais avec 
alimentation. L’ami qui m’a fourni la notice a été 
dans le même cas que moi. 
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Côté PC il faut adapter ce qui a été fait pour Apple 
dans Au centre. ou faire un programme ou en trouver 
un. En ce qui me concerne j'avais ébauché un 
programme en turbo-basic qui fonctionnait mais 
entre temps il m’en a été donné un réalisé en C et 
plus performant. Je compte me remettre à ouvrage 
et perfectionner le mien. 


Une petite recommandation dessoudez 
soigneusement la diode à infrarouge car elle est 


réutilisable. 


Pour conclure je pense que les HP28S peuvent encore 
rendre de grands services en les améliorant côté 
matériel ou soft. 


Sauvegarde déjà ? 


Si vous (ou un ami) avez aussi une HP48 et un PC 
vous pouvez déjà sauvegarder vos objets HP28 sur 
disquette pour une réintroduction future si vous 
envisagé de transformer votre machine ou tout 
simplement pour votre participation à JPC!!!. 


En effet, dans le Kit de communication pour HP48 
existe un programme INPRT permettant de recevoir 
dans une HP48 des objets HP28 via les diodes à 
infrarouge. La HP48 se comporte alors comme une 
imprimante et reçoit les objets usuels sous forme de 
chaîne. Il suffit de faire o8J- dans la HP48 pour 
retrouver l’objet original mais avec les codes HP48 
(donc souvent utilisable tel quel par la HP48) et qui 
peut être transféré en mode ASCII dans le PC pour 
un listing et enfin peut être un article pour JPC!!! ce 
qui ne serait pas mal du tout. 


Cette façon d'opérer n’est valable que pour des 
listings ou la conversion d’objets HP28 en objets 
HP48. En effet pour pouvoir réutiliser à nouveau à 
l'avenir ces objets dans une HP28 il faut, dans celle-ci, 
les transformer en chaîne de codes hexa (pour les 
programmes en assembleur cela n’est possible que de 
cette manière) avant de les envoyer dans la HP48. A 
ce stade vous aurez reçu dans la HP48 la chaîne 
grossie d’un certain nombre de CHR 4 que vous 
aurez à éliminer soit dans la HP48, le PC ou la HP28 
au retour. Je préfère les éliminer tout de suite dans la 
HP48. Vous transférez cette chaîne dans le PC et en 
mode binaire comme pour tout objet HP48. Quand 
votre HP28 communiquera avec l'extérieur vous 
pourrez récupérer les codes hexa. De retour dans la 
HP28 la chaîne sera à épurer de l'en-tête "HPHP.." 
(provenant de Kermit) et d’un CHR 26 en queue. 
Donc faire : 


14 OVER SIZE 1 - SUB 
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pour obtenir la chaîne de codes à assembler et ainsi 
retrouver l’objet original HP28. 


Comment envoyer des programmes au club 


Pour ceux qui possèdent un PC et une HP28 avec 
connecteur : 


- donner le listing des objets usuels sous forme de 
chaîne transférée de la HP28 au PC 

- fournir si possible le fichier binaire des objets HP 
transférés dans le PC 

- pour les programmes en assembleur fournir les 
listings et le type de compilateur utilisé: SASM, 
AREUH, HP48 de Laurent Grand etc. Donner 
évidemment les fichiers objets générés par ces 
compilateurs. 


Pour ceux qui n’ont pas de HP28 avec connecteur 
essayer si possible de fournir les listings et les chaînes 
de codes hexa quels que soient les types d’objets et 
cela par l'intermédiaire d’une HP48 comme cela a été 
expliqué ci-dessus. 


Enfin ceux qui ont travaillé et veulent en faire 
bénéficier le club mais n’ont pas les possibilités 
énoncées ci-dessus peuvent aussi nous envoyer leur 
travail sous forme listée par l'imprimante HP à 
infrarouge ou par leur propre main. 


Comme les autres 


Nous arrivons maintenant à la fourniture d’outils pour 
assembler les chaînes de codes des programmes en 
system rpl et assembleur. J’utiliserai quelques adresses 
non fournies dans Au centre. et qui pourront être des 
vieilles connaissances pour les uns et des nouveautés 
pour les autres. 


Rappelons qu’une commande en user rpl vérifie 
toujours l'existence et la nature des arguments à 
fournir à la différence des commandes équivalentes 
en system rpl. Aussi pour ne pas les confondre 
celles-ci seront inscrites en minuscules alors que les 
commandes en user rpl sont toujours en lettres 
majuscule. D’autre part les commandes usuelles sont 
souvent polyvalentes. Par exemple: 


"+" en user rpl permet: 

de faire la somme: 
de nombres réels 
de nombres complexes 
de nombres binaires 
de matrices et vecteurs 

de concaténer: 
des chaînes 
des listes 

etc. 


alors qu’en system rpl on fait appel à des adresses 
différentes pour chaque type d’argument et il n’y a 
pas droit à l’erreur. 


En première ligne nous retrouvons évidemment le 
classique assembleur de codes. C’est l'équivalent de 
asc- pour HP48 (JPC 78 et 79). Le listing du fichier 
source est compilable par SASM. A ce propos 
certains ont fait le reproche que j'emploie des 
mnémoniques en minuscules or je ne vois pas 
pourquoi que cela me serait interdit, cela était déjà 
pratiqué lors des beaux jours du HP71, et d’autre part 
les trois compilateurs cités ne sont pas incompatibles 
avec cette forme de listing. 


Les adresses utilisées ci-dessous n’ont rien d’officiel 
mais dans l’état actuel des choses nous savons qu’il 
n’est pas besoin que ce soit supporté par HP puisque 
la fabrication des HP28 est finie. J’ai donné, lorsque 
cela était possible, les mêmes mnémoniques que pour 
HP48 mais en minuscules pour ne pas faire de 
confusions entre les deux machines. 


ASC- 
ASSEMBLE 
con(5) #02c67 * début programme 
con(5) #04f3d * newob 
con(5) #0204a * dup 
con(5) #040c2 * size 
con(5) #02c96 * code 
rel(5) fin * offset fin code 
gosbvl #04f27 *_pop# 
gosbvl #05081 * savptr 
a=a-1 a 
b=a a * compteur codes 
a=dat1 a cé 
a=a+con a,10 eu 
d0=a * à début codes 
di=a e 
lchex 39 
Loop * conversion 
a=dat1 2 * ASCII -> HEXA 
?a<=c b LS 
goyes  inf10 * 
a=a-con b,7 x 
* 
inf10 dat0O=a 1 h 
di=di+ 2 x 
d0=d0+ 1 * 
b=b-1 a Fe 
gonc Loop # 
govlng #125e5 * getptrloop 
fin 
con(5) #3ceaa * 2 get 
con(5) #04f3d * newob 
con(5) #02f90 * fin programme 


Certains trouveront peut-être étrange de ne pas 
trouver d’abord un assembleur en user rpl. Nous 
allons adopter une méthode connue qui consiste à 
stocker les codes hexa correspondant à ce source dans 
des entiers binaires que l’on va concaténer comme 
des chaînes grace au programme interne dont 
l'adresse est #3B82h. On remarquera que les codes 
sont stockés à l'envers par rapport à leur place 
définitive pour respecter la structure des entiers 
binaires et des chaînes. La boucle du programme aura 
donc permis de constituer un entier binaire avec 
l'ensemble des codes hexa ce qui évite de faire la 
conversion ASCII-Hexa. Le programme d’adresse 
#20238h fait un 2 GET de l’objet ce qui correspond à 
la partie code seulement sans le prologue ni la 
longueur. Il ne reste plus qu’à faire un NEwoB pour 
recréer en mémoire l’objet correspondant au code. 


ASC-.rpl 


« 
# 20204A04F3D02C67h # F80004F02C96040Ch 
# 8DCC05081F804F27h # 313103190F818341h 
# 681808AE91B51391h # 45DC061171085168h 
# F3D3CEAA125E5D8Eh # 2F9004h 28 STUS #0 OR 
64 STUS 1 7 
START # 3B82h SYSEVAL 
NEXT # 20238h SYSEVAL # 4F3Dh SYSEVAL 


» 


Pour obtenir le programme assembleur en 
assembleur ïil suffit de faire EVAL. Puisque ce 
programme se présente d’abord en user rpl nous 
allons pouvoir lintégrer dans le programme 
ci-dessous qui a pour objet de faire rentrer les codes 
hexa de façon fiable car contrôlés par série de 16 
caractères, évitant ainsi, en cas d’erreur de tout 
vérifier, ce qui est assez rébarbatif. 


Tapez les deux programmes ASSCOD.28 et INPUT.28. 
Lorsque vous aurez le programme SPEED vous pourrez 
inclure cette commande dans ASSCOD comme 
ci-dessous. Ces deux programmes sont à entrer avec 
la plus grande attention car leur mauvais 
fonctionnement peut entraîner un désordre fatal pour 
les objets contenus dans votre machine. L’effort 
d’attention qui vous est demandé ici, est le seul et par 
la suite vous ne regretterez pas cet investissement qui 
vous procurera beaucoup de confort et de sécurité. 


ASSCOD.28 


« 
SPEED RCLF HEX 64 STUS 1 SF ‘# /’tmpcod’ STO 
nombre d'octets à chaîne se 
à terminant 


" à 2 par NEWLINE 


17 INPUT 1 CF STR+ 2 * 16 DUP2 / IP 3 ROLLD MOD 
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DUP2 

IF 

THEN 1 + 

END 3 ROLLD 1 + 4 ROLL # Oh DUP +-nrfso 

« 1 SWAP 

FOR i 
DO “Ligne " "O0" i 1 - R+B -STR 3 OVER 
SIZE 1 - SUB + DUP SIZE DUP 2 - SWAP SUB 


+ DUP " à chaîne 
chaine à encadrée par 
n + à 2 NEULINE 
Hosmm om. m—— " 
ni< 
IF 
THEN r DUP 4 / IP + SWAP OVER 1 
SWAP OVER - SUB SWAP 18 + 
ELSE 38 
END ’o’ STO + 
n à NEWLINE 
M + 1 FS2C 
IF 
THEN ROT SWAP CLLCD 1 DISP HALT SPEED 
ELSE o INPUT 
END DUP 
WHILE DUP " 1 POS DUP 
REPEAT DUP2 1 SWAP 1 - SUB 3 ROLLD 

1 + 25 SUB 
IF DUP “n == 
THEN DROP 
ELSE + 
END 
END DROP 0 OVER SIZE 1 SWAP 
FOR j OVER j DUP SUB NUM j * + 
NEXT s + DUP # FFFh AND 
" à NEWLINE 
somme de controle à NEWLINE 
ee @ NEWLINE 
#" 
6 ROLL SWAP + 34 INPUT STR+ == 
IF 
THEN SWAP DROP 1 
ELSE DROP2 1000 1 BEEP 1 SF 0 
END 
UNTIL 
END '’s’ STO 


WHILE DUP " POS DUP 
REPEAT DUP2 1 SWAP 1 - SUB 3 ROLLD 1 + 
19 SUB + 
END DROP ‘’tmpcod’ DUP RCL ROT + SWAP STO 
NEXT f STOF 
tmpcod 
# 20204A04F3D02C67h # F80004F02C96040Ch a 
# 8DCCO5081F804F27h # 313103190F818341h aa 
# 681808AE91B51391h # 45DC061171085168h aa 
# F3D3CEAA125E5D8Eh # 2F9004h 28 STUS #0 OR ad 
64 STUS 1 7 a 
START # 3B82h SYSEVAL DE) 
NEXT # 20238h SYSEVAL # 4F3Dh SYSEVAL ad 
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EVAL "fin! CLLCD 1 DISP a 


» 


Si vous avez déjà un programme assembleur en 
assembleur vous pouvez remplacer les lignes avec a 
jusqu’à EVAL par le nom correspondant à votre 
programme. De même si vous préférez créer d’abord 
le programme ASC-+ à partir du programme en user rpl, 
vous pouvez opérez de même. 


INPUT.28 


Ce programme est fait pour remplir le rôle de la 
commande INPUT de la HP48 qui n’existe pas chez 
son ancêtre. Evidemment ce sous programme est plus 
spécialisé pour les besoins de la cause. 


« 
SWAP 1 
WHILE OVER CLLCD 1 DISP 
REPEAT 
DO 
UNTIL KEY 
END 
IF DUP MENTER'" == 
THEN DROP 0 
ELSE 
IF DUP "BACK'! == 
THEN DROP 1 OVER SIZE 1 - SUB 
ELSE + DUP SIZE 3 PICK - 2 + 5 MOD NOT 1 FC? 
AND 
IF 
THEN Wu + 
END 
END 1 
END 
END SWAP 60 SUB 


Donc à partir de maintenant pour tout assemblage de 
chaîne de codes procédez de manière suivante: 


1- lancez le programme ASSCOD .28 

2- donnez le nombre d’octets (1/2 oct. compris) puis 
validez avec ENTER. 

3- tapez chaque ligne de codes, correspondant au 
numéro de ligne à 3 chiffres, sans les espaces et 
validez. 

4- tapez la somme de contrôle et validez. S'il y a 
erreur la ligne de codes sera demandée à nouveau 
après émission d’un BEEP. L’appui sur EDIT fera 
apparaître la ligne des codes qui pourra être corrigée. 
Relancez avec coNT. 

5- stockez le programme assemblé dans la variable 
donnée en tête. 


Nous avons donc maintenant nos outils pour le coin 
des codes HP28S comme pour les autres machines. A 
l'avenir ces deux programmes seront dans la rubrique 
qui les concerne mais juste avec le minimum 
d'indications pour leur utilisation. 


Guy Toublanc (276) 





FAST-ORIELLES HP28S 


Dans l’article HP28$ RETRO j'ai fait allusion à la 
possibilité de coopération HP48<->HP28. Ce qui a 
été fait pour l’une des machines peut très bien être 
adapté à l’autre. Ici j’'applique cette possibilité à 
propos du calcul des factorielles en multi-précision. 
Dans JPC 81 Laurent Grand nous avait donné FFACT, 
programme en user rpl et assembleur. Dans JPC 82 je 
donnais une version optimisée. C’est cette version que 
j'adapte à la HP28$. Donc les adresses changent mais 
les calculs en system Rpl et assembleur sont 
identiques. 


Ce qui a été dit dans JPC 81 et 82 est toujours 
valable. Il existe dans la ROM une routine pour 
générer une chaîne mais son utilisation m’a valu de 
nombreux plantages. Son adresse est #1E9BAbh et le 
programme principal est identique à MAKEN$ de la 
ROM HP48. Quand j'aurai le temps j’analyserai les 
sous-programme de cette routine. Si quelqu'un la 
déjà utilisé qu’il ait la gentillesse d’en donner la 
solution. Normalement il faut donner le nombre de 
quartets de la chaîne à créer (prologue compris) dans 
C(A) et au retour DO pointe sur le premier caractère, 
RO(A) = adresse prologue et R1(A) = adresse 
longueur. Avec cette routine mon programme aurait 
été plus court. 


En ce qui concerne les mnémonique en system rpl 
j'utilise le même principe exposé dans l’article HP28S 
RETRO. A coté des mnémoniques jai indiqué la 
nature des arguments à fournir au programme par 
exemple: re pour un réel. Voici donc le fichier source 
et vous trouverez la liste des codes hexa dans la 
rubrique /e coin des codes. 


FFACT.28S 

ASSEMBLE 
con(5) #02c67 * docol 
con(5) #09bdd * IP 
con(5) #11c83 * abs re 
con(5) #0204a * dup 
con(5) #02933 * reel 15 
nibhex  1000000000000510 


L3ch 


Retry 


Ok3ch 


con(5) 
con(5) 
con(5) 
con(5) 
con(5) 
con(5) 
con(5) 
con(5) 
con(5) 
con(5) 
con(5) 
con(5) 
con(5) 
con(5) 
con(5) 
con(5) 
con(5) 
con(5) 
con(5) 
con(5) 
con(5) 
con(5) 
con(5) 
con(5) 
con(5) 
con(5) 
con(5) 
con(5) 
con(5) 
rel(5) 
gosbvl 
gosbvl 
d0=(5) 
c=0 
datO0=c 
st=0 
a=a+a 
a=a+con 
ri=a 
gosub 
c=r1 
gosbvl 
gonc 
gosub 
?st=0 
goyes 
govlng 
gosbvl 
st=1 
goto 
cd0ex 
r3=c 
d0=c 
lchex 
datO=c 
a=r1 
a=a-con 
d0=d0+ 


#08b26 
#0e3e2 
#0e3f8 
#02c67 
#125f6 
#1743f 
#02f90 
#0e459 
#02cé67 
#0204a 
#0c53b 
#020e5 
#0204a 
#0204a 
#3eeff 
#11d82 
#11eda 
#11d48 
#020e5 
#0204a 
#11ceb 
#11443 
#11d48 
#11e5e 
#11eda 
#11ceb 
#12485 
#0c53b 
#02c96 
fin 
#04f27 
#05081 
#c015f 
a 

a 

10 

a 

a,10 


load 


#053ae 
Ok3ch 
Load 
10 
Retry 
#0393e 
#04a94 
10 
L3ch 


0O2aée 
a 


a,5 
5 


* 


* 


<rere 
IF 

THEN 
docol 
fact re 
->str re 
semi 
ELSE 
docol 
dup 
r->sb n 
swap 
dup 
dup 

e 
Jrere 
log re 
*re re 
Swap 
dup 
+re re 
pi 

*re re 
sart 
Log 
+rere 
ceil re 
r->sb 
docode 
offset pour fin code 
pop# 


savptr 


long. de n! 


res_room 


resptr 


setmemerr 
garbagecol 


docstr 
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dat0=a 
d0=d0+ 
a=a-con 
c=0 
c=a 
csrb 
rstk=c 
cd0ex 
rstk=c 
r1=c 
di=c 
cza 
gosbvl 
gosub 
a=dat1 
di=a 
d1=d1+ 
c=0 
r0=c 
c=dat1 
rè=c 
c=rstk 
di=c 
c=0 
c=c+1 
p= 
dat1=c 
Loop 
c=r1 
d0=c 
c=r0 
c 
c=0 
l1 rstk=c 
setdec 
a=0 
a=dat0 
c=r2 
mult1 sb=0 
csrb 
?sb=0 
goyes 
b=b+a 
a=a+a 
?2c#0 
goyes 
c=rstk 
c=c+b 
dat0=c 
d0=d0+ 
c=0 


mult2 


cslc 
cslc 
cslc 
csle 
sethex 
d=d-1 
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a 
5 
a,5 
w 
a 


* long. n! 
L2 


#5042 
load 


* write_zeros out1 


a Loop2 


11 
mp 


load 
fin 


p= 
c=rstk 
c=c-1 
b=c 
csrb 
d=c 
c=r1 
c=c+b 
d0=c 
rstk=c 
a=dat0 
c=dat1 
dat1=a 
dat0=c 
d1=d1+ 
d0=d0- 
d=d-1 
gonc 
c=rstk 
di=c 
c=c+b 
d0=c 
Lchex 
c=dat1 
dat0=c 
d0=d0- 
di=d1- 
b=b-1 
gonc 
gosub 
a=r3 
dat1=a 
govlng 
govlng 


con(5) 
con(5) 
con(5) 


1 


t2 


Loop 


D — — = — — — 


loop2 


#125ec 
#050b8 


#02f90 
#0e479 
#02f90 


* 


* 


* 


retour rpl 
resptr 


semi 
END 
semi 


Guy Toublanc (276) 


HP-48 


J.M. Mermet 
P. Silvestre de Sacy 
J. Belin 


Optimisation d’enregistrements musicaux 14 
Récupération de port 15 
Nouvelle version du kit de développement 16 
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OPTIMISATION 
D'ENREGISTREMENTS 


Puisque vous manquez cruellement d’articles de 
"nouveaux", je me lance à l’eau avec ce petit 
programme de mon cru. 


Il m'arrive souvent de réaliser des copies de compacts 
sur cassettes et je déplore à chaque fois le "blanc" 
laissé à la fin de mes enregistrements. Il existe 
pourtant un choix de morceaux qui minimise l’espace 
magnétique perdu. 


Le trouver à la main est un travail titanesque pour 
peu que le nombre de morceaux dépasse 4 ou 5 ! 


Programmer cette application n’est pas, du moins à 
mon niveau, franchement facile non plus. J’ai fini par 
réaliser que seule la récursivité pouvait me sortir 
d'affaire (c’est un des rares cas ou elle me semble 
incontournable). En langage algorithmique, la partie 
récursive de mon programme peut s’écrire 
shématiquement comme suit : 


RECM : 


prend une liste de temps {t1..tn} au niveau 1 
calcule La somme S=t1+..+tn 
Si S > temps maximum autorisé TM 
de i=1 à n fait 
enlève l'élément i de La Liste 
applique RECM 
fin de boucle 
Sinon 
Si S > approximation précédemment trouvée 
S devient La meilleure approximation trouvée 
Affichage de S 
Fin de test 
Fin de test 


Le programme RECORD.MAS permet, quand à lui, 
d’initialiser les variables et de démarrer la recherche. 
Le mode d'emploi est très simple, il vous suffit 
d’entrer au niveau 2 une liste de temps sous la forme 
mm.ss et au niveau 1 le temps maximal admissible sous 
la forme mm.ss, d'exécuter RECORD.MAs. Celui-ci vous 
rappelle le mode d'emploi et s'arrête. Vous démarrez 
alors la recherche par [CONTI. 


S’affichent alors la meilleure approximation trouvée, 
le nombre de morceaux impliqués dans cette 
approximation, un rappel du temps maximal 
admissible et la procédure à effectuer pour arréter la 
recherche. Quand lapproximation vous convient, 
tapez [ONI, ICLRI et tLS1 pour obtenir la liste 
"gagnante". | 
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Un petit exemple (réel) de recherche: 


Niveau 2 : {19.59 7.22 6.34 16.25 6.35 9.01) 


Niveau 1 : 30 


On obtient rapidement : 


29.34 pour {6.34 16.25 6.35} 


soit un blanc de 26 secondes! 


RECM 


#C79Fh 
310.5 octets 


« DUP SIZE 
IF 1 # 
THEN DUP OBJ+ 2 SWAP 
START HMS+ 
NEXT + LT 
« 
IFTM> 
THEN 1 L SIZE 
FOR I LI 
SWAP OBJ+ 2 + 


DUP 


ROLL OVER SWAP - 
ROLL DROP 3 - LIST 


RECM 
NEXT 
ELSE 
IFTIS > 
THEN T DUP 
STR 


" : Temps trouve! + 
1 DISP TS’ STO L 


DUP SIZE +STR 


" ;: n de morceaux!" 


+ 2 DISP 'LS' 
END 
END 
» 
ELSE DROP 
END 


RECORD.MAS 


#B8E0h 
312.5 octets 


« CLLCD € LS TS } 
TMENU 
NXX% RECORDMASTER *** 


STO 


© © © © 


ATTENTION, 
Une seule chaîne ! 


Liste de temps a 
temps max ... svp! a 
1 DISP 2 WAIT HALT 

0 TS’ STO € } LS’ 

STO ‘M’ STO CLLCD 

“pour un temps maxi de " 


M =STR + 
"“ pour arreter + ON à Une seule chaîne 
puis CLR puis LS" a 


+ 3 DISP RECM LS 
2000 .2 BEEP € TS LS M } 
PURGE 


» 


Il y a bien entendu de nombreuses améliorations à 
apporter à cette application, notamment dans les 
directions suivantes : 


- remplacer les HMS+ par des + plus rapides en 
calculant d’abord le nombre de secondes que 
représente chaque temps. 

-$Se passer totalement de variables globales et, si 
possible de variables locales. 

- Réécrire l'application en System Rpl pour un gain en 
temps et en place. 


J'espère vraiment lire prochainement dans JPC des 
versions plus performantes de cette application. 


Jean-Michel MERMET (568) 


NDLR : Autre amélioration possible, pourrait-t-on accepter des 
paramètres entiers, pour gérer les disquettes informatiques ? 


RECUPERATION DE PORT 


Ce programme recherche dans le port specifié toutes 
les librairies et tous les backups validés, et les dépose 
sur la pile. 


Il doit pouvoir retrouver après un Invalid Card Data 
tout ce qui peut encore l'être, car il recherche 
systématiquement dans toute la carte. 


Il s'inspire de la librairie RECOVER de HPeed. 
L'avantage étant que si la librairie est dans le port 
perdu, on n’y a pas accès, alors qu’il suffit de retaper 
ce programme et de lassembler pour espérer 
retrouver le port. 


CK18D ispatch 


ONE 
COERCE 
CODE 
GOSBVL  #06641 * POP.A 
GOSBVL #0679B * SAVPTR 
D=0 A * nb d'objets trouvés 
DO=(5)  #70400 
D1=(5)  #70400 
?A=0 A 
GOYES PORTO 
A=A-1 A 
?2A=0 A 
GOYES PORT1 
A=A-1 A 
?A=0 A 
GOYES PORT2 
* PORT NON VALIDE 
* ON SORT 
FIN C=D A 
RO=C A 
GOSBVL  #06537 * PUSH nb d'objets 
* trouvés 
GOVLNG  #00D84  * Retour au RPL 
PORTO DO0=(4)  #0597 * à DEBUT 
D1=(2) #4D * à FIN 
GOTO SUITEZ 
PORTI DO=(2)  #2C * à Info Crate 
GOSUB PRESENTE? 
GOTO SUITE 
PORT2 DO=(2) #37 * à Info Carte 
GOSUB PRESENTE? 
SUITE DO=D0+ 1 
C=DATO A * Taille carte 
DO=D0+ 5 * Saute a l'a 
* de début de port 
A=DATO A 
DO=A 
A=A+C A 
B=A A * àQ Fin de recherche 
GOTO RECHERCHE 
SUITEZ2 A=DATO À 
DO=A 
A=DAT1 A 
B=A A 
RECHERCHE 
LCHEX 02 
R1 A=DATO B * Cherche la valeur 02 


* (fin de prologue 
* commun au LIB et BACKUP) 
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?A=C 
GOYES 
DO=D0+ 
ADOEX 
?A>=B 


GOYES 
ADOEX 
GOTO 


TROUVE? DO=D0- 
LCHEX 
A=DATO 
?C=A 
GOYES 
LCHEX 
?A=C 
GOYES 
DO=D0+ 
GOTO 
TROUVE D0=D0+ 
A=DATO 
A=A-CON 
CDOEX 
RO=C A 
GOSBVL 
C=0 A 
C=DATO 
?A=C 
GOYES 
MAUVAIS A=R0O 
DO=A 
GOTO 


BON D=D+1 
D0=(5) 
D1=(5) 
A=DATO 
C=DATI 
C=A-C 
C=C-CON 


Goc 
A=A-CON 
D1=A 


DATO=A 
A=RO A 
A=A-CON 
DAT1=A 


D1=(5) 
LCHEX 
DAT1=C 
LCHEX 
B1 C=C-1 
GONC 
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B 
TROUVE? 
1 


FIN 


R1 


02840 
A 

A 
TROUVE 
02B62 
A 
TROUVE 
4 


RECHERCHE 


A, 4 


#0597E 


BON 


RECHERCHE 


A 
#70579 
#70574 
A 

A 

A 

A,5 


INSUF .MEM 


A,5 


A,5 
A 


#00108 
8F 

8 

FFF 


B1 


* Arrivé à La fin 
* du port 


* Est-ce une LIB ? 


* Est-ce un BACKUP ? 


* Saute prologue 
* A=Taille 
* moins CRC 


* Sauvegarde DO 


* Calcul du CRC 


* Est-ce égal au CRC ? 
* Oui => Trouvé !!! 
* Continue la recherche 


* Un de plus 


* Reste-t-il 
* de La mémoire ? 


* Augmente La taille 
* de La pile 


* Met l’objet sur 
* La pile 


* Allume Les 
* indicateurs d'état 


* ATTEND 


LCHEX 80 * Eteint les 
DATI=C B * indicateurs 
GOTO MAUVAIS 
INSUF .MEM 
C=0 A 
LCHEX 1 
ERREUR A=C A 
GOSBVL  #067D2  * GETPTR 
GOVLNG #05023 * ERROR 
PRESENTE? 
A=DATO P 
?ABIT=0 3 * Carte présente? 
GOYES NOCARTE 
?2ABIT=1 1 * Carte merge? 
GOYES CMERGE 
RTN 
NOCARTE 
CMERGE C=0 A 
LCHEX A 
GOTO ERREUR 
ENDCODE 


: 


Pierre Silvestre De Sacy (572) 


NOUVELLE VERSION DU KIT 


Nous vous avons dit récement qu’il était dans nos 
projets de faire évoluer notre kit de développement 
pour HP48. Une nouvelle étape a été franchie ce mois 
ci. 


La disquette contient maintenant : 


- Les utilitaires et documentations développés par 
HP, connus aussi sous le nom de Goodies 4, qui 
étaient présents sur la derniere version de notre 
disquette. 

- Le compilateur de Laurent Grand, permettant de 
mixer de l’User RPL et de l’assembleur (programme 
distribué en Shareware). 

- Le programme d’exploration de la Rom HP48, écrit 
par Jean-François Garnier. 


La Documentation a bien entendu été mise à jour. 


Jacques Belin (123) 





AH ! VOUS ECRIVEZ 


Vous vous sentez en verve, mais vous ne savez pas sous quelle forme "l’équipe de 
rédaction" souhaite recevoir votre prose. C’est ici que se trouvent les réponses à 
vos questions. 


Dans la mesure du possible, vous devez nous envoyer vos écrits sur support 
magnétique (carte, cassette ou disquette) dans le format lisible directement pour 
votre machine. Vous pouvez taper vos articles sur IBM PC, mais m’utilisez pas de 
traitement de texte (WORD...). Utilisez plutôt un éditeur simple manipulant des 
fichiers en ASCII pur, sans codes d’enrichissement. Soyez sans crainte, nous vous 
retournerons vos biens après copie. 


Si vous n’avez pas accès à un IBM, et seulement dans ce cas là, vous pouvez à la 
rigueur nous envoyer des disquettes provenant de Macintosh. 


Si vous ne pouvez pas utiliser de support magnétique, ou ne pouvez vous rendre 
aux réunions, alors et alors seulement faites le sur papier. 


Que ce soit sur une feuille de papier, ou sur support magnétique, ne dépassez 
pas 50 caractères par ligne. 


Pour nous épargner du travail, insérez dans votre texte les commandes de 
formattage suivantes (et non les commandes du formatteur HP-71) : 

"?" centre un titre, par exemple : 
"TITRE 


"\'(CHRS$(92)) marque le début et la fin d’un paragraphe. Par exemple : 


\Début de paragraphe exprimant le contenu de vos idées qui, même si vous 
en doutez, intéressera certains des membres du Club. Surtout si vous vous 
sentez débutant. Les articles pour débutants écrits par des débutants sont ceux 
qui manquent le plus. Fin de paragraphe.\ 


Pour écrire une accolade ({ ou}), il faut doubler l’accolade, une accolade simple 
ayant une signification spéciale dans l'édition de JPC. 


Les utilisateurs de HP-71 utiliseront le fichier CHARLEX, qui a été souvent listé 
dans le coin des Lhex, pour utiliser les caractères accentués du jeu Romans. 


Les utilisateurs de HP-48 doivent nous envoyer les programmes RPL sous deux 
formes : Binary, plus ASCII avec Translate Code : 3. Les programmes composés 
de plusieurs variables doivent être dans un répertoire à transférer sur disquette 
et dans les deux modes. Si vous insérez dans le corps des articles le texte des 
programmes, veuillez faire précéder ce texte de trpt et le faire suivre de Cendrpt. 


Les utilisateurs de HP-95 et MS-DOS nous transmettront les sources de leurs 


programmes accompagés des fichiers compilés. Il nous indiquerons le nom et la 
version du compilateur ou de l’interpréteur qu’ils ont utilisé. 


Le Bureau 


PPC PARIS SE REUNIT 
UNE FOIS PAR MOIS 


Comme vous le savez peut être déjà, PPC Paris se réunit une fois par mois, en 
plein coeur de Paris. Amenez votre matériel, votre bonne volonté et vos idées ! 
Plus vous en apporterez, et plus vous en trouverez chez vos collègues de PPC. 


Ces réunions se déroulent de manière très libre, aucun ordre du jour, discussion 
ou autre n'étant imposé. Un membre du bureau est toujours présent. Ainsi, si 
vous désirez remettre votre article tout frais au Journal, si vous avez des 
suggestions à faire, si vous voulez vous procurer des anciens numéros de JPC, ce 
sera en principe toujours possible. 


Si donc cela vous intéresse, n’hésitez plus un seul instant, venez nous rejoindre 
tous les premiers samedis de chaque mois (sauf en période de vacances 
scolaires) au : 


Centre de Jeunesse et de Loisirs Jean Verdier 
11 rue de Lancry 
75010 Paris 


et en montant au deuxième étage, vous entendrez des éclats de rire et des 
discussions passionnées vers la salle 215. Attention, toutefois, de venir entre 16 et 
19h. 


Pour l'accès en métro, trois possibilités s’offrent à vous : 
- Métro Strasbourg Saint Denis : 

Sortie porte St Martin / Bd St Denis, coté pairs 

- Métro République : 

Sortie Bd St Martin, coté pairs 

- Métro Jacques Bonsergent : 

Sortie Bd Magenta, coté impairs. 


Ah, j'oubliais ! JPC est (souvent) distribué en avant première lors de ces 
réunions. À bon entendeur, salut ! 


Les dates des prochaines réunions sont : 


Samedi 6 Mars 1993 
Samedi 3 Avril 1993 
Samedi 5 Juin 1993 


Ds | 


> 


ge Tee 


NOUS EN AVONS 


La coopérative du Club vous propose : 


- Des anciens numéros de JPC (Préciser les numéros). 

- Des années complètes de numéros de JPC (février à janvier). 

- La Programathèque HP-71, regroupant tous les Lex et programmes pour HP-71 et HP-75 parus à ce jour 
dans JPC. Elle vous est livrée avec un catalogue décrivant brièvement tous les programmes. 

- La JPC Rom pour HP-71, comportant plus d’une centaine de fonctions en assembleur (mathématiques, 
programmation structurée, utilitaires systèmes..). Joindre une Eprom vierge (64 Ko) à votre règlement. Il 
est possible d’y ajouter vos propres programmes. 

- Les Goodies Disks HP48, disquettes compressées : Disk1=G1+G2+G3, Disk2=GS5+G6, Disk3=G7. 

- Les utilitaires de développement pour HP-48 fonctionnant sur IBM PC. La disquette contient les 
utilitaires développés mais non supportés par HP connus aussi sous le nom de goodies 4. C’est à dire un 
assembleur et un Linker pour le microprocesseur Saturn, un compilateur RPL et un générateur de librairies 
ainsi qu’une très abondante documentation sur le fonctionnement en détail de la HP48. La disquette 
contient aussi un compilateur écrit par Laurent Grand, permettant de mixer de l’User Rpl et de 
l’'assembleur. Le dernier programme est un désassembleur/explorateur de la Rom de la HP48, écrit par 
Jean-François Garnier. Vous pouvez obtenir la disquette avec la documentation imprimée et reliée par nos 
soins. 


Le port, et eventuellement la disquette (précisez le format), sont inclus dans les prix. 


Si vous souhaitez des renseignements complémentaires, n’hésitez pas à nous contacter. 





Nom : 
Prénom : 
No d'’adhérent : 
Adresse : 
Quantité Prix Unitaire Prix Total 

Adhérent | Autre 
Anciens numéros de JPC x 4OFF | 45FF 
Année complète de JPC x 300 FF | 350 FF 
JPC Rom + Manuel x 500 FF | 600 FF 
JPC Rom + Manuel + vos propres programmes x 700 FF | 800 FF 
Actualisation Eprom x 150 FF | 200 FF 
Goodies Disks 1, 2 et 3 compressés sur disque 1 XUAONFF AA IRNSONEE 
Goodies Disks 5 et 6 compressés sur disque 2 X 40 FF | 50FF 
Goodies Disks 7 compressés sur disque 3 X 40 FF | 50FF 
Kit de développement pour HP-48 (disquette seule) XOIG ONE PRIT AS ONE 
Kit de développement pour HP-48 (disquette + doc imprimée) x 170 FF | 200 FF 


Préciser éventuellement Les numéros de JPC commandés : 


PPC PARIS 


Association régie par la loi de 1901, enregistrée 
à Paris le 2 décembre 1982 sous le numéro 82/3240 


BULLETIN D’ADHESION 
Nom ST ES PE PERCÉE RÉ RE EIEl 
Prénom |_|_[_|_|_|_1_1_|_1_|[_|_[_|_|_|_|_| Date de naissance |_|_|/|_[_[/1_|_| 
Adpesse LE Te EE PP LA ETC TA 
A RL ER CR REÉE 
RO RE EME Re Eee RCE AE 
ER CR EE PRE ÉD OEEI27 
Code Postal {_[_{_[_[_| Vitte |_[_{_1212121212 112122 
Téléphone Domicile [_[_[_[_[_[_[_[_[_[_|_[_| Bureau |__| 1|_[_1_1_1_1 [|__| 


Profession 
Intérêts 











Matériel HP en votre possession 


en ne RCE EU PE ME A RE AR NP D PE TL TE Re 
Autre matériel informatique 


ee 


Comment avez-vous connu PPC Paris ? 


—————————_——_—_—————————__—_—— 


2 


Que recherchez-vous au sein de PPC Paris ? 





2 
2 ——_———e 


La Loi No 78-17 du 6 janvier 1978 relative à l'informatique, aux fichiers et 
aux Libertés, garantit à toute personne justifiant de son identité un droit 
d'accès et de rectification auprès des services ou organismes chargés de mettre 
en oeuvre des traitements informatiques comportant des informations nominatives 
Le concernant. 


Je souhaite adhérer au club PPC Paris conformément aux statuts de 
l'Association. Au mieux de ma connaissance, je déclare avoir Le droit de 
fournir tous Les programmes et informations que je Vous enverrai (sans 
enfreindre des obligations de secret à l'égard d’autres personnes ou 
organismes) pour publication dans Le Journal de liaison, sans obligations ni 
responsabilité d’aucune sorte (en cas d'utilisation frauduleuse) de La part des 


dirigeants de PPC-Paris. 

Date |_|_[/1_[_1/191_1_] 

Signature, précédée de La mention "Lu et Approuvé!! 

Le montant de La cotisation s'élève à 350.00 F pour un an. 


Etudiants: 300.00 F (justificatif indispensable) 


Paiement à l'ordre de "PPC Paris! par chèque bancaire ou virement postal (CCP 
No 18 823 40 C à Paris). Ne pas utiliser d’Eurochèques. 


Veuillez envoyer toute correspondance à : 
PPC Paris, BP 604, 75028 Paris Cedex 01, France 
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LE GRAPHISME SUR HP95 


INTRODUCTION 


Une grandes différences du HP95 par rapport à un 
IBM PC classique concerne le graphisme. En effet, 
alors que le mode texte est parfaitement supporté, le 
HP95LX ne reconnait aucun mode standard du PC, 
ne serait-ce que le CGA. 


Cependant, il comporte des fonctions graphiques 
beaucoup plus puissantes que sur la majorité des 
cartes VGA disponibles sur le marché, puisqu'il est 
possible de tracer, en un seul appel système, des 
lignes, des rectangles ou des images complètes. 
Rappelons que les fonctions VGA standard ne se 
résument qu’à l'affichage du pixel ! 


Cet article a donc pour but de vous décrire en détail 
les caractéristiques et les fonctions de cette machine. 


CARACTERISTIQUES GENERALES 


L'écran du HP9S est divisé en un espace de 240x128 
pixels. Les deux seules couleurs admises sont le blanc 
et le noir (pas de niveau intermédiaire). 


L'origine des coordonnées se situe dans le coin 
supérieur/gauche de l'écran. La numérotation des 
points est comprise dans l’intervale 0-239 pour les 
abcsisses et 0-127 pour les ordonnées. 


Contrairement au mode VGA, les pixels ne sont pas 
carrés. Ils suivent un rapport aproximatif de 4/3. Ce 
qui implique qu’une routine de tracé de cercle ne 
tenant pas compte de ce fait tracera une ellipse (plus 
large que haute). Une zone de quatre pixels de haut 
sur trois pixels de large apparaitra en revanche 
sensiblement carrée. 


L'adresse de la mémoire vidéo est située en B000. 
Chaque segment de 8 pixels d’une ligne est stocké 
dans un octet. La taille de cette mémoire est donc de 
240*128/8=3840 octets. 


LISTE DES FONCTIONS 


Alors que sur le PC les fonctions graphiques sont 
regroupées dans l'interruption 10h (avec les fonctions 
vidéo du mode texte), les fonctions graphiques du 
HP95 sont placées dans l’interruption 5Fh. Sauf cas 
spécifique, toutes les fonctions décrites dans cet 
article seront donc appelées à partir de cette 
interruption. Comme d'habitude le numéro de la 
fonction est placé dans le registre AH. 


JPC 84 Page 18 


Après exécution de l'interruption, les registres 
semblent être remis à leur état initial (à l’exception 
du registre AX). Cela simplifierait la programmation 
en assembleur. Cependant, il est conseillé de vérifier, 
car je n'ai fait qu'un test rapide des retours 
d’interruptions. 


Entrée et sortie du mode vidéo 


Avant toute opération graphique, il est nécessaire de 
placer le HP95 en mode graphique. Cela est fait en 
exécutant la fonction 00h, sous-fonction 20h : 


mov AH,00h 
mov AL,20h 
int  SFh 


Ceci permettra d’utiliser les fonctions graphiques. 
L'écran est effacé et les paramêtres courants (position 
du curseur...) seront mises à leur valeurs par défaut 
(voir chapitre suivant). 


Si vous n’avez pas besoin de conserver les paramètres 
courants, vous pouvez utiliser cette fonction pour 
effacer l'écran. 


En fin de programme, il est nécessaire de retourner 
en mode Texte. Cela peut être fait en utilisant les 
fonctions normales du BIOS vidéo. Par exemple en 
utilisant la fonction Oh sous fonction 7h de 
l'interruption 10h. L'écran sera effacé. 


Lecture des informations vidéo 


Au cours de l'exécution du programme, il peut être 
nécessaire de connaitre les informations concernant 
les différents modes et valeurs utilisés. Ces données 
sont accessibles après avoir appelé la fonction 02h, et 
placées dans une table que vous aurez déclaré dans 
votre programme. 


Valeurs d’entrée : 
AH = 02h 
ES:DI : adresse de la table d’information. 


Valeur retournée : 
DX:AX : adresse de la table (= ES:DI) 


Format de la table d’informations graphique : 


Offset Taille Défaut Description 


00h BYTE 20 Mode vidéo courant 
01h BYTE 3 Mode vidéo par défaut 
02h WORD 240 Largeur affichage en pixels 


0Oéh WORD 128 Hauteur affichage en pixels 


06h WORD 0 Colonne curseur 

08h WORD 0 Ligne curseur 

OAh WORD FFFFh Aspect ligne 

OCh WORD 0 Méthode de remplacement 
OEh WORD 1 Couleur de tracé 

10h WORD O0 Colonne gauche fenêtre 
12h WORD 0 Ligne haute fenêtre 
14h WORD 239 Colonne droite fenêtre 
16h WORD 127 Ligne basse fenêtre 
18h WORD 0 Colonne origine logique 
1Ah WORD 0 Ligne origine logique 
1Ch 8 BYTES * Masque de remplissage 


+> * = FF FF FF FF FF FF FF 


Pour des explications détaillées sur ces données, 
reportez vous aux paragraphes suivants. 


Commandes de positionnement et d’initialisation 


Ce chapitre contient la description de différentes 
commandes nayant pas d'effet visible, mais 
permettant de préparer ou d’ajuster le comportement 
des fonctions de tracé. 


Positionnement du curseur 
Cette fonction permet de positionner le curseur 


graphique à une coordonnée qui servira d’origine aux 
fonctions de tracé. 


Valeurs d’entrée : 
AH = 08h 
CX = Colonne 
DX = Ligne 


Valeur retournée : 
Aucune 


Positionnement de l’origine logique 


Afin de simplifier certains programmes, il peut être 
intéressant d'écrire des routines permettant 
d'effectuer des tracés "standard" à une position 
quelconque de l'écran. Cette fonction permet donc de 
choisir une nouvelle origine de coordonnées, autre 


que le coin supérieur gauche de l’ecran. 


Valeurs d’entrée : 


AH = 03h 
CX = Colonne 
DX = Ligne 


Valeur retournée : 
Aucune 


La position du curseur graphique reste constante par 
rapport à l’origine. Ce qui veut dire que si l’on 
déplace cette origine, le curseur suivra physiquement 
le déplacement de la fenêtre. 


Notons à ce sujet que pour toutes les fonctions de 
tracé, les valeurs sont données en coordonées 
absolues par rapport à l’origine logique. 


Sélection d’une fenêtre graphique 


Cette fonction permet de définir une fenêtre limitant 
les tracés à une zone prédéfinie. Les fonctions de 
tracé ayant des coordonnées finales extérieures à 
cette fenêtre s’interompront aux limites de celle-ci. 


Valeurs d'entrée : 
AH = Odh 
CX = Colonne coin Supérieur/Gauche 
DX = Ligne coin Supérieur/Gauche 
SI = Colonne coin Inférieur/Gauche 
DI = Ligne coin Inférieur/Gauche 


Valeur retournée : 
Aucune 


L'origine et la position du curseur ne sont pas 
modifiées par cette fonction. 


Avant l'appel de la fonction de tracé, le curseur 
graphique doit être situé à l’intérieur de la fenêtre, 
sinon le tracé sera totalement ignoré. 


Sélection d’une couleur de trait 


Cette fonction permet de définir la couleur utilisée 
par toutes les fonctions de tracé. 


Valeurs d'entrée : 
AH = 09h 
AL = Nouvelle couleur (Blanc = 0, Noir = 1) 


Valeur retournée : 
Aucune 


Notez que dans le cas des remplissages, par exemple, 
si on choisit la couleur blanche, la zone sera 
intégralement blanche, quelque soit le motif de 
remplissage. 
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Sélection du type de ligne 


Cette fonction permet de décrire l’aspect de la ligne, 
telle qu’elle sera tracée au cours de l'appel des 
fonctions 05h (pour le tracé d’un cadre) et 06h. 


Valeurs d’entrée : 
AH = 0Bh 
CX = Aspect de la ligne (sur 16 bits) 


Valeur retournée : 
Aucune 


Le registre CX doit contenir l’image binaire de la 
ligne, qui sera répété autant de fois que nécessaire. 
Les valeurs courament admises sont : 


FEDCBA9876543210 code Type 


Ligne pleine (par défaut) 
_ Trait interrompu court 


Trait interrompu long 
Trait mixte 


Définition du motif de remplissage 


La fonction 05h (voir plus bas) permet de remplir une 
zone rectangulaire avec un motif prédéfini (hachures, 
motif cyclique...). La fonction suivante permet de 
sélectionner le motif courant. 


Valeurs d’entrée : 
AH = Oh 
ES:DI : Adresse d’une table contenant le motif. 


Valeur retournée : 
Aucune 


Le motif est décrit dans une table de 8 octets 
(8 * 8 bits). Par exemple, si nous désirons remplir une 
zone avec des hachures ayant une largeur de deux 
pixels, nous pourrons utiliser un motif tel que 
celui-ci : 


Description motif Valeur Hexa 


11000000 = co 
10000001 = 81 
00000011 = 03 
00000110 = 06 
00001100 = oc 
00011000 = 18 
00110000 = 30 
01100000 = 60 
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Ce motif sera répété verticalement et 
horizontalement autant de fois que nécessaire. Notez 
aussi qu’il aurait très bien pu être noté avec les codes 
suivants : 


18 30 60 CO 81 03 06 OC 


Ceci aurait créé le même motif, mais décalé de 3 
pixels vers la droite. 


Sélection de la loi de remplacement 


Cette fonction permet de modifier la façon dont 
seront traitées les couleurs, au cours des opérations 
de tracé suivantes. Ceci peut permettre de créer 
certains effets intéressants, tels que la visualisation en 
négatif (au sens photographique du terme) d’une 
partie de l'écran. 


Valeurs d’entrée : 
AH = 0OAh 
AL = Nouvelle loi de remplacement 
00 : Force (défaut) 
01 : AND 
00 : OR 
00 : XOR 


Valeur retournée : 
Aucune 


Théoriquement, la fonction effectue une opération 
booléenne (AND, OR, XOR) entre le contenu de ce 
qui est déjà affiché et ce qui doit être tracé (trait 
interrompu, motife de remplissage..). Cependant, si 
la couleur noire est bien prise en compte, la couleur 
blanche (contenue dans le tracé) est ignorée dans le 
cas de l'opération FORCE, qui comme son nom 
l'indique devrait "forcer" l’affichage du nouveau tracé 
sur l’ancien. 


Afin de rendre plus compréhensible le 
fonctionnement de cette fonction, voici deux tableaux 
montrant les résultats des tracés, suivant les 
paramètres d’entrée. La couleur courante est celle 
définie par la fonction 09h. La couleur du fond se 
rapporte à ce qui est déjà visible sur l’écran pour un 
pixel donné. La "couleur du trait" se rapporte à la 
couleur d’un pixel tel qu’il est défini (de façon 
constante) dans les paramètres des fonctions 01h et 
0Bh. Le terme "Inchangé" indique que visuellement 
l'opération n’a eu aucun effet. 


- Couleur courante : Noir 


Operation | Couleur | Couleur du trait 


| du Fond | Blanc Noir 
esse gssssses see cceudssesduslessetcee 
FORCE | Blanc | Blanc Noir 

| Noir | Noir Noir 
sÉlsassose ds neo ententes 
AND | Blanc | Inchangé 

| Noir | 
ss... phosmocmscponmmmmmmmmmmmmmmmms 
OR | Blanc | Blanc Noir 

| Noir | Noir Noir 
ses géstesseneponemendeeess tue 
XOR | Blanc | Blanc Noir 

| Noir | Noir Blanc 


- Couleur courante : Blanc 


Operation | Couleur | Couleur du trait 


| du Fond | Blanc Noir 
Shoiésésd périls cassensed esse scsasé 
FORCE | Blanc | Blanc Blanc 

| Noir | Noir Blanc 
sc he ons litoscesesesc ose sers ge 
AND | Blanc | Blanc Blanc 

| Noir | Noir Blanc 
Lots Saras dre iesoecniéuesse seras 
OR | Blanc | Inchangé 

| Noir | 
Shea banasescostessssséencéensé=t uses 
XOR | Blanc | Inchangé 

| Noir | 


Fonctions de tracé 

Ce sont les fonctions ayant une action immédiatement 
visible. 

Affichage d’un pixel 


Cette fonction affiche un point, en utilisant la couleur 
courante. 


Valeurs d’entrée : 


AH = 07h 
CX = Colonne 
DX = Ligne 


Valeur retournée : 
Aucune 


Après exécution, le curseur graphique est placé sur 
les coordonnées du point. 


Lecture de la couleur d'un pixel 


Cette fonction est l'inverse de la précédente. 


Valeurs d’entrée : 
AH = OCh 
CX = Colonne 
DX = Ligne 


Valeur retournée : 
AX = Couleur du pixel 


La position du curseur graphique n’est pas affectée 
par cette fonction. 


Affichage d’une ligne 


Cette fonction trace une ligne entre la position 
courante du curseur et un point spécifié en CX,DX. 
Elle utilise le type de ligne, la couleur et le mode de 
remplacement courant. 


Valeurs d’entrée : 
AH = 06h 
CX = Colonne finale 
DX = Ligne finale 


Valeur retournée : 
Aucune 


Après exécution, le curseur graphique est placé sur 
les coordonnées finales de la ligne. 


Affichage d’un rectangle 


Cette fonction permet de tracer des rectangles, de les 
entourer d’une bordure ou de les remplir à laide d’un 
motif prédéfini par la fonction 01h. Elle utilise le type 
de ligne, la couleur et le mode de remplacement 
courant. 


Elle prend les coordonées du curseur graphique 
comme origine du tracé. 


Valeurs d'entrée : 
AH = 05h 
AL = Type de tracé 
00 : Cadre, utilisant le type de ligne 
défini par la fonction OBh. 
01 : Remplissage uni, en utilisant la 
couleur définie par fonction 09h. 
02 : Remplissage, en utilisant le 
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motif défini par la fonction 01h. 
CX = Colonne finale 
DX = Ligne finale 
Départ : Position courante du curseur 


Valeur retournée : 
Aucune 


Les coordonées du coin final peuvent être inférieures 
au coin d’origine. 


Le curseur graphique n’est pas déplacé par cette 
fonction. Ceci permet de simplifier les tracés 
successifs (effacement, cadre, hachurage) sur un 
même rectangle. 


L'origine du hachurage est toujours le coin supérieur 
gauche de l’écran, indépendement de la position du 
rectangle. Ceci implique que quelque soit la position 
de différents rectangles utilisant le même motif, les 
hachures coincideront parfaitement. 


Fonctions de manipulation d'image 


Ces fonctions permettent  d’effectuer des 
manipulations sur une zone graphique. Il est ainsi 
possible de sauvegarder tout ou partie de l’écran dans 
un buffer, ou afficher (en un seul appel système) une 
image telle qu’une icone ou un logo. 


Elles sont relativement équivalentes aux fonctions 
GROB de la HP48. 


La première fonction permet de stocker dans un 
buffer le contenu d’une zone de l'écran graphique. 


Valeurs d’entrée : 
AH = ODh 
CX = Colonne du premier coin 
DX = Ligne du premier coin 
BP = Colonne du deuxième coin 
SI = Ligne du deuxième coin 
ES:DI : adresse du buffer d’image. 


Valeur retournée : 
Aucune 
(Buffer image initialisé) 


Le buffer d’image a le format suivant : 


Offset Taille Description 


00h WORD Nombre de plans (toujours 1 sur Le 95) 
02h WORD Nombre de bits/pixel (1 sur Le 95) 
0&h WORD Largeur de l’image en pixels 

06h WORD Hauteur de l’image en pixels 

08h N BYTES Image (N = (Largeur+/7)/8 * Hauteur) 
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La zone image est organisée d’une façon équivalente 
à la fonction 01h, à savoir que 8 pixels d’une ligne 
sont stockés dans un octet. 


La position du curseur graphique n’est pas affectée 
par cette fonction. 


La deuxième fonction permet d’afficher une image, à 
partir du contenu d’un buffer (de format équivalent à 
celui de la fonction précédente). 


Valeurs d’entrée : 
AH = 0Dh 
AL = Bit 2 : Inverse les couleurs l’inclusion. 
Bit 1-0 : Loi de remplacement 
00 : Force (défaut) 
01 : AND 
00 : OR 
00 : XOR 
CX = Colonne du premier coin 
DX = Ligne du premier coin 
ES:DI : adresse du buffer d’image. 


Valeur retournée : 
Aucune 


La position du curseur graphique n’est pas affectée 
par cette fonction. 


Le comportement de la loi de remplacement est 
légèrement différent par rapport à celui de la fonction 
OAbh. En effet, la couleur blanche (définie par un code 
0 dans le contenu du buffer) est ici réellement prise 
en compte, dans le sens où elle peut effacer une zone 
noire. Les opérations logiques sont donc parfaitement 
effectuées et l’intruction FORCE "force" réellement 
le tracé. Par contre, la couleur courante définie par la 
fonction 09h n’a aucune influence sur le tracé. 


Si image ne tient pas en totalité dans l’écran, l’appel 
est ignoré. 


Ecriture de texte 


En mode graphique, les fonctions standard du DOS 
(fonction 09h de l'interruption 21h, par exemple) ne 
sont pas utilisables pour écrire une ligne de texte. Il 
est donc nécessaire d’utiliser la fonction suivante pour 
tout affichage de caractères. 


Valeurs d’entrée : 
AH = 0F 
AL = 0: Affichage standard (horizontal). 
# 0 : Affichage vertical (bas vers haut). 
CX = Colonne du coin sup/gauche du 1er caract. 
DX = Ligne du coin sup/gauche du 1er caract. 


ES:DI : Pointeur sur chaine, terminée par 
un caractère de code ASCII 0. 


Valeur retournée : 
Aucune 


La position du curseur graphique n’est pas affectée 
par cette fonction. 


Si un caractère (et les suivants) est placé (même 
partiellement) en dehors de l’écran ou d’une fenêtre, 
il ne sera pas affiché. 


Notez que vous devrez toujours effacer le texte (en 
traçant un rectangle vide par dessus) avant de réécrire 
un nouveau texte, sinon il y aura superposition de 
l’ancien et du nouveau texte. 


Accès direct en mémoire vidéo 


Certaines personnes seront probablement tentées de 
travailler en accédant directement en mémoire vidéo. 
Si cela ne devrait pas poser trop de problèmes (je n’ai 
pas encore essayé), il faut qu’elles soient conscientes 
qu’elles risquent d’avoir des problèmes de 
comptabilité avec les successeurs du HP95LX. En 
effet, si il semble assuré que l’interruption 5Fh sera 
conservée, il est probable que, la taille de l'écran 
augmentant, le calcul de l’adressage d’un point soit 
différent. Jusqu'à réception d'informations 
supplémentaires, je ne ferais donc que conseiller 
d'utiliser les fonctions standard, même si cela influe 
sur les performances. 


UNE PETITE BIBLIOTHEQUE GRAPHIQUE 


Afin d’exploiter de façon simple les fonctions que 
nous venons de voir, je vous présente une petite 
bibliothèque de fonctions graphiques accessibles à 
partir du langage C. Notez qu'ayant écrit le corps des 
routines en assembleur (pour des raisons de 
simplicité et de rapidité), elle nécessite les Turbo C et 
Turbo Assembleur. 


Si vous avez bien suivi la partie précédente de 
l’article, vous n’aurez surement pas de problème pour 
létudier. Elle ne contient en fait que les fonctions 
décrites précédement, sans variations ni nouvelles 
fonctions plus évoluées (tracé de cercles..). 


Afin de permettre de l’inclure facilement dans un 
programme composé de plusieurs modules, la 
bibliothèque est composée de deux fichiers : grafx95.c 
qui contient les fonctions et grafx95.h qui contient la 
déclaration de différentes structures et constantes. 


Plutôt que de redécrire en détail les fonctions, je 
n’expliquerai ici que certains points spécifiques. 


Constantes prédéfinies 


Afin de ne pas être confondues avec les constantes 
utilisées habituellement par Turbo C, les codes de 
couleurs sont renomés CWHITE et CBLACK. Il faut donc 
utiliser celles ci, et non WHITE et BLACK. 


Les constantes OUTLINE, SOLID, PATERN, FORCE, AND, OR et 
xoR sont utilisées par les fonctions de tracé. 


Les constantes xax_LiNE donnent quelques exemples 
d’aspects de ligne. Elles doivent être utilisées de la 
façon suivante : 


set_line_type(CENTER_LINE); 


Les constantes xxx_FILL donnent quelques exemples 
de motifs de hachurage. Les douze premiers sont 
identiques à ceux qui sont définis dans Turbo C et 
Turbo Pascal. Comme pour les aspects de ligne, elles 
peuvent être utilisées de la façon suivante : 


set_fill_mask(SLASH_FILL); 


Déclaration et manipulation d’une image 


Le fait que la taille d’un buffer Image soit variable 
complique (en langage C) la définition de la structure 
la décrivant. En effet, un tableau contenu dans une 
structure doit obligatoirement avoir sa longueur 
définie par une constante. J’ai donc eu recours à une 
astuce, consistant à créer une macro chargée de 
définir une structure ayant les bons paramètres. Cette 
structure servira plus tard à la déclaration du buffer 
lui-même. Par exemple, si nous désirons créer une 
structure décrivant un buffer de 32x25 pixels, nous la 
créerons ainsi (en l'appelant par exemple 
IMAGE_32_25) : 


DESCRIPT_IMAGE(32, 25, IMAGE_32_25) 
Une fois ceci fait, il nous faudra déclarer la variable 
de la même façon que nous l’aurions fait avec une 


structure définie en typedef : 


IMAGE_32_25 image01; 
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Si nous désirons créer une image prédéfinie (un logo 
par exemple), nous procèderons ainsi : 


IMAGE_32_25 Logo = € 
15.153275; 
{ 
Ox00, 0x00, O0x00, 0x00, 
Ox3f, OxcO, Ox3f, Oxe0, 


Ox1f, Ox80, Ox3f, OxcO, 
0x00, Ox00, Ox00, Ox00, 
}, 
>; 


Les premiers chiffres initialisent le contenu de 
l'entête. Les deux premières valeurs devront toujours 
être égales à 1. 


Après ceci, le buffer sera utilisé de la façon suivante : 
put_image( (IMAGE *) &logo, 205, 99, INVERSE, AND); 


Si vous utilisez des buffers de taille variable, il est 
plutôt conseillé de les allouer dynamiquement. la 
macro LEN_IMAGE vous indiquera la taille nécessaire à 
ce buffer, en fonction des dimensions de l’image et de 
l'entête du buffer : 


buffer = farmalloc( (Long) LEN_IMAGE(32, 17)); 
Ceci termine cet article. Vous trouverez le mois 
prochain (enfin, si tout va bien !) dans ces mêmes 


pages un premier exemple de programme utilisant ces 
fonctions. 


Jacques Belin (123) 





UN 
PROERAnnE 
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DESINE - hou 


MOTIFS DE REMPLISSAGES DEFINIS DANS GRAFX95.H 


Motifs définis dans Turbo C et Turbo Pascal 





EMPTY FILL SOLID_FILL 
SLASH_FILL BCKSLASH_FILL 





XHATCH _ FILL INTERLEAVE FILL 


Autres Motifs 







ANS SI 





AVATARS 
MAVAVA AVANT 
AAA AAA ANNE 
AVANT NAAANES 
MAVAAANAANEl 
AAA ANSE 
AAA AAA NEA 
NL NE 


GRAY _FILL ZIGZAG_FILL 


LS 
RS NSSSNSS 
RSSSSSSSSS, 
SSSR 
SSSR SS 


SSSR 


PLASTIC FILL 


[A 
A 


fl 





BRASS FILL 











res 
TT 
RES 
RRRRRRRRRA] 


BRIKS3_FILL BRIKS4_ FILL 


CONNECT NC ES 





SPIRAL FILL 


PÉ600000006 





CLOTH FILL CUBES _FILL 







LINE _FILL 


LTBKSLASH_FILL 





WIDE _DOT_FILL 


(| 
RS 
RSA 


NN NM NE NN 


SCALES FILL 


7 
ZL 


LTSLASH_ FILL 

















AAAAAAAAAA 
PUZZLE _FILL 
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us qui use 
3J0'IP AOÛ use 
Bss'sa  AOW use 
uyLo‘ye AOÛ use 
2C1SeL)440_d1 = 330 
*(iSeu)93s d4 = 6es 
2,40 "Bas jui 
} 


(ASeW, Jeu2)ASeU ]]1} 325 PLOA 
202800028288 8 DIDIER DE EE DE EEE D DE AE EE DEEE DE A EEE / 


/» aungny : oauin0)}2J JN9])PA x/ 
lu (S19120 g) 26ess1]duos ap anbseu 21] 1ns anejuiod = ysew : s221ju3 ,/ 
= abessi]duos ap onbseu np Uo1323)2S : MSVN 1114 13S x/ 


60.880.288 82226 NRA NEA IR NEA DEAR NEA NEA AE AE AE DEEE DD D EDEN EE / 


{ 
uy}S JUL Se 
adA1'x2 AOÛ use 
uyqg'uye AOW use 
e ? 
(edAj jui)2dA1 aul] 325 pLoA 
0.68 6 8 288 8 8 8 8 DD EE EE DD DD EE EEE ON 


1x aunany : 99UJN0)2J JN2]EA »/ 
/x (si1q 91 dns) auBi] e] op 19odse = odA3 : so91}U3 ,/ 
x sauBl] Sep 199dS8,1] 9P U01)92]9S : 3dA1 3NI71 13S »/ 


80 82828 262628 663626 622 A ANNE NN DEN AIN ARE AR AE D ED AE EE AE D EE / 


{ 
y} Jui use 
eynJ'}e AOÛ se 
yeo'ye AOW use 
2 } 
(a)nJ Jey3)37n4 32S PLOA 
8 288 8 8 822 A DD ED AE DD DD DD DE DE AE DEEE DD EE DE AE NE / 


/x aunony : 2aUJNn0)2J IN2)EA »/ 
/x C4ox ‘40 ‘ANV ‘32Y04) iuowa2e]duei ap 10] = 21nJ : S29JJU3 »/ 
x Auaus9e]dues 2p 101 2] 2p U0132919$ : AIN 13S +/ 


808.808 282028 6 2620 AGADIR ARIANE NOR NRDN DEEE DER AE NEED A ADD DE D DD DE EE / 


€ 
y}S jui use 
J0]02/]2 AOU lise 
yéo'ye AOÛ Se 
) 
(10109 Je42)10]02 32S PLOA 
6 326.26 283828 8 6 282828 DD ARDENNE DEA DE ADDED DE ADD EE EN / 


/x aun2ny : 22UJn0)24 JN2]EA »/ 
le (aU819:0 “JION:L) JN2]N02 2]]2ANOU = J0]09 : S29JJU3 x/ 
JE ajueJno2 Jnajn02 2] 2P U01)29]9S : 0109 13S x/ 


0 862868 82882628 AAA ED D ED EE DE AE AE D ON / 
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y}s jui Se 

3J0'IP AOÛ Se 

Bas's2 AOW use 

A'XP AO use 

X'X2 AOÛ Se 

!6e)3 9)e30J'j2 AOÛ use 
yJo'ye AOÛ use 


1(3X23 (x 484 PIOA))440 44 = 440 
1(1%83 (x Je} PI0A))93S di = 69S 


2,40 ‘Bas qui 


Œ } 
(6ey4" 238301 qui ‘1X2)4 Jey2 A quI ©X JU1)1X23 231JM PIOA 
1} * ! l 


626 26.6 ND DDR D DD DE D OO / 


/x aunony :_99UIN0)2J JN21EA x/ 
Ju 18211J94 U9 oBeyo1JJe ‘O0 2Pp AU919441p 1S = Be]} 238104 */ 
Ja Jou21je e 21X2} = 9)X2} */ 
/» 2J2128J89 J2L np eyoneB Jn2112dNS ULO2 np SSZUUOPI002 = À FX : S29JJU3 »/ 
/» 31%23 ep auBl] SUN,p 26eu2144V © 1X31 3LIUM x/ 


86 26 6 666 A ANDRE AE ADD DEEE A EE / 


u}s qui use 
330'IP AOÛ use 
Bas'sa AOÛ use 

A'xp AOÛ use 
X'X9 AOÛ Use 
9")2 AOU use 
uyso’uye AOÛ use 


:CeBeut (x 184 PLOA))140_d4 = }40 
‘CoBeul (x Je} PLOA))93S d4 = 6es 


22]NJ+(2>>3J9AUL) = 2 


:2 jui 
14,0 ‘Bas qui 
} 
(onu qui ‘ageaut qui ‘A qui ‘x jui ‘eBeul, 39VNI)26euL and p1oA 
86 620.628 6068 2626 ANA DE DEEE ADDED DD D D DE EE / 


1 aunony : 99UJn0)2J JN8])EA »/ 
/x Cyox ‘40 ‘QNY 32404) Juawe2e dues 9p 101 = 21n4J */ 
le quau29e |duua 1 xl 
/x 2p 101 e1 senbiidde,p jueae 22sJaAut 359 2Beul,1 | LS = 319AUl »/ 
1» ebeul,] ap oyone6 JnolJgdns ULO9 np SaauuopJoo = À ’X */ 
/ (osijelaiut e[op) #BelLl J93nq Un Jns Jnajulod = 2BEUL : S2913U3 %/ 
lx eBeul aun,p 2Be4914}Y : 39VNI Id x/ 


À 268.6 26266 830268 26830268 62 D DD DE NEED D D D A DD EEE EEE / 


/» d8 2P UO13n}11S91 %/ xq'dq Aoù use 
y} jui se 

Lx'dq AO  uwuse 

1» X9 SUP d8 2p apieBsanes ,/ dq'xq Aoù use 
LA'LS AOW use 

JjJ0'Ip AO use 

as's2 AOÛ use 

A'Xp AOW use 

X!'X2 AOÛ use 

ypo‘'ye AOÛ use 


:(eBeul (x 124 PLOA))440_d1 = 330 
(oBeul (x 1e} PLOA))93S d4 = 69S 
2L-SaUL]_ qu+A = LA 
:1-S109 quaX = EX 


2LA ‘Lx qui 
: : 
2340 ‘Bas jui 
rs >. } 
(seu) qu qui ‘sos qu jui ‘A jui 'X jUL ‘oBeuil, 39VWI)26euL 396 PLOA 
60.6 2820286 66 A DE DE DD DD ED DD ADD DD D DD DE DEEE A AE A EEE / 


1» ji JNIN} 9) SUEP UalJ »Buey2 ou dH enb */ 
/x Jnod suoisd “epiebaanes e] Jnod Xg 2S1113n 1e,/ / 
/x ‘uolinogxe saide SsaJ1s15aJ sep 931184593U1,) 12n31}S91 #/ 
le juejques 46 uotjdnJJojut,7 *sLXs AnOd J2S11n:] 2P s/ 
Jx ueAe JepJeBaAnes 9] 2p 2118SS299U JS2 11 SaJ}aueJed */ 
l sep o11d e] Jnod dg 211S16aJ 91 jueSi]L3n 9 Oquni : JINVIYOdNI 31ON x/ 
/x aunony : 23UJN0)2J JN2]EA x/ 
LE psLelaiul oBeUL J34JNq : 213J0S »/ 
[a eBeuil,] 2P SeuBl] 2p 2Jquou = seul) qu */ 
[a eBewl,;] 2P SaUU0)09 2p 2Jquou = S)02 qu “/ 
Ja eBeul,] 2p eyoneb JnalJodns U109 np S2aUUOPJ009 = À “x #/ 
/x eBeul son un Jns Jnajuiod = oBeWl : S29J303 »/ 
/» Jajnq un suep en EE euoz aUn,P 2132297 : JDVNI 139 »x/ 


63.6 D AGADIR AE A A EEE / 
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LE COIN DES CODES 


La compilation de certains programmes, tels ceux 
écrits en assembleur, nécessitent souvent un logiciel 
que ne possèdent pas tous nos lecteurs. Le Coin des 
Codes permet de résoudre ce problème. 


Note importante : 


Même si la présentation des listings est identique, le 
traitement de ceux-ci est différente suivant le 
programme d’entrée et la machine de destination. 
Chaque listing est prévu pour être entré sur sa 
machine de destination. Par exemple, ne tentez pas 
d'entrer un programme HP48 dans un fichier 
MS-DOS à l’aide du programme MAkEDos. Vous 
obtiendrez un fichier que vous ne pourrez pas 
transférer dans la HP48. 


Programmes HP48 


Par rapport aux méthodes habituelles sur HP48, notre 
méthode effectuant un calcul local du checksum en 
fin de chaque ligne permet de faciliter la recherche 
d'erreurs, par rapport à une même recherche dans 
une chaîne de plusieurs centaines d’octets. 


Ceux qui n’ont pas encore de programme assembleur 
pourront procéder de la manière suivante : 

- par mesure de sécurité sauvegardez vos programmes 
et fichiers, éventuellement verrouillez vos cartes 
RAM pour devenir ROM. 

- tapez le programme ASsCob. 


ASSCOD 


# 1277h 
884 octets 


« RCLF HEX 64 STWS -2 SF 1 CF “" ’tmpcod’ STO 
“nombre d'octets" 1 INPUT OBJ-+ 2 * 16 
DUP2 / IP 3 ROLLD MOD DUP2 
IF 
THEN 1 + 
END 3 ROLLD 1 + 4 ROLL 
#0h-nrfs 
« 1 SWAP 
FOR i 
DO 
“ligne u 
OO! ji 1 - R+B -+STR 3 OVER SIZE 1 - 
SUB + DUP SIZE DUP 2 - SWAP SUB + DUP 
" 4 chaîne commençant 
chaine!" + a par + (newline) 
# à chaîne commençant 
" à par + (neuline) 
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a et composée de 4 
a groupes de 4 
4 CHR 95 obtenus par 
9 a shift bleu x 
9 1 espace séparant 
à 2 groupes 
ni< 
IF 
THEN 1 r DUP 4 / IP + SUB 
END + 1 FC?C 
IF 
THEN € "M @ } 
ELSE ROT 
END INPUT DUP 
WHILE DUP " 1 POS DUP 
REPEAT DUP2 1 SWAP 1 - SUB 3 ROLLD 1 + 
25 SUB + 
END DROP O0 OVER SIZE 1 SWAP 
FOR j OVER j DUP SUB NUM j * + 
NEXT s + DUP # FFFh AND "#1" 
u à "somme de controle! 
somme de controle à précédée et suivie 
U a de + (neuline) 
a puis 3 CHR 95 
à (a shift bleu x) 
7 ROLL SWAP + € "à } 
INPUT + OBJ+ == 
IF 
THEN SWAP DROP 1 
ELSE DROP2 1000 .5 BEEP 1 SF 0 
END 
UNTIL 
END ’s’ STO ’tmpcod’ DUP RCL 
ROT + SWAP STO 
NEXT f STOF 
» 
tmpcod 
WHILE DUP " 1! POS DUP 
REPEAT DUP2 1 SWAP 1 - SUB 3 ROLLD 1 + MAXR 
SUB + 
END DROP 
"GROB 8 " 
OVER: SIZE 2 /:" 0% 
+ SWAP + STR- 


à si vous avez ASC-+ 
à JPC 79 page 14 
à vous pouvez remplacer 


# 4017h SYSEVAL 
# 56B6h SYSEVAL 
DROP NEWOB 


à ces lignes 
à par ASC-+ 
a (plus rapide) 


» 


Donc à partir de maintenant pour tout assemblage de 
chaîne de codes procédez de manière suivante : 

1- lancez le programme Asscon. 

2- donnez le nombre d’octets (1/2 oct. compris). 

3- tapez chaque ligne de codes avec un espace entre 
chaque groupe de 4 caractères. 

4- tapez la somme de contrôle. S’il y a erreur la ligne 
sera réaffichée pour correction après émission d’un 


BEEP. Programmes HP28 

5- stockez le programme assemblé dans la variable 

donnée en tête. Voir en page 9 de ce numéro. 
6- si tout s’est bien déroulé vous pouvez purger tmpcod 

qui contient la chaîne de codes. 


Programmes MS-DOS 


Afin d’être utilisé par tous, ce programme est destiné 
à être écrit en GwBASIC. Il devrait cependant être facile 
de le convertir pour un autre programme (@BASIC, 
Turbo BASIC...). 


Mode d’emploi : 

1- Lancer le programme : GWBASIC MAKEDOS.BAS 

2- Entrer le nom du fichier destination. 

3- Entrer la taille du fichier. 

4- Entrer les listes de codes puis le checksum (en 
prenant soin d’entrer les codes héxadécimaux en 
majuscules). En cas d’erreur corriger la ligne, en 
prenant soin de placer le curseur après le dernier 
caractère avant de taper sur la touche d’entrée. 

5- Une fois que toutes les lignes sont entrées, sortir 
du GwBAsIC en exécutant la commande SYstEM. Le 
nouveau programme est immédiatement disponible. 


Note : La taille du fichier résultant peut être 
supérieure d’un octet à ce qui est affiché dans le 
listing. Cela n’est pas un problème. 


Programme MAKEDOS.BAS 


10 INPUT "Nom du fichier : ",NOM$ : INPUT "Nombre d'octets : ",N : N=N*2 
20 OPEN NOM$ FOR OUTPUT AS #1 : CLOSE #1 : KILL NOM$ 
30 OPEN “"bin.tmp" FOR OUTPUT AS #1 : S=0 : P$=M---- ---- ---- ---- u 
40 NLINES=N\16 : LENLAST=(N MOD 16)+((N MOD 16315) 
50 IF (N MOD 16)=0 THEN NLINES=NLINES-1 : LENLAST=LEN(P$) 
60 FOR X=0 TO NLINES 
70 IF X=NLINES THEN P$=LEFT$S(P$, LENLAST) 
80 C$=P$ 
90 X2$=MO0"+HEXS(X) : PRINT RIGHT$(X2$,3);":1; 
100 Y=CSRLIN : LOCATE Y,6 : PRINT C$; : LOCATE Y,6 : INPUT ",C$ : Y=Y-1 


110 LOCATE Y,27 : PRINT " sm = ---" : LOCATE Y,33 : INPUT "",D$ 

120 M=S 

130 FOR Z=1 TO LEN(C$) 

140 IF MID$(CS,Z,1)<>1 " THEN M=(M+C(Z-(Z\5))*ASC(MID$(C$,Z,1)))) MOD 4096 
150  NEXT Z 


160 D2$="O0"+HEX$S(M) : D2$=RIGHT$(D2$,3) 

170 IF D2$<>D$ THEN PRINT "Erreur de somme! : BEEP : GOTO 90 
180 FOR Z=1 TO LEN(C$) STEP 2 

190 IF MID$(C$,Z,1)=" ! THEN Z=Z-1 : GOTO 230 

200 CH=ASC(MID$(CS,Z,1))-48 : IF CH>9 THEN CH=CH-7 

210 CL=ASC(MIDS(CS,2Z+1,1))-48 : IF CL>9 THEN CL=CL-7 

220 PRINT#1,CHR$C((16*CH)+CL); 


230 NEXT Z 
240 S=M 
250 NEXT X 


260 CLOSE #1 : NAME "bin.tmp" AS NOM$ : END 
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FFACT28S.BIN 


0123 


000: 76c2 
001: 4020 
002: 0000 
003: 3E08 
004: 21F3 
005: 076C 
006: 5E02 
007: FEE3 
008: D115 
009: 1134 
00A: 1ADE 
008: B35C 
O0C: F72F 
00D: 510C 
00E: 8F09 
00F: EA35 
010: O8DE 
011: 5A68 
012: 4E4A 
013: 8416 
014: 4AF2 
015: 1091 


4567 


ODDB 
3392 
0051 
F3E0 
4710 
20A4 
0A40 
28D1 
E020 
4118 
11BE 
069C 
408F 
D214 
1017 
0502 
3930 
DF13 
2014 
4140 
D681 
35D6 
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89AB 


9038 
0100 
0628 
76c2 
9F20 
0208 
20A4 
1ADE 
A402 
4D11 
c115 
20BA 
1805 
484A 
3711 
7261 
8F49 
610B 
4111 
1648 
E061 
8F24 


(CHP28) 
314 octets 
CDEF sm 
C11A ESE 
0000 862 
802E 50D 
O6F5  33F 
954E  OEO 
35C0 DE3 
020F  A95 
1184  8CC 
OBEC 730 
ESE1  4D2 
8421 200 
1008 F1F 
018F D2E 
c481 ABB 
198F 7B2 
86A9  4A0 
A408  26B 
1343  F06 
818F BC8 
18F8 8c1 
3606  55F 
0507 208 


016: BF01 
017: 0814 
018: 6281 
019: D7D2 
O1A: 1AAF 
01B: A78A 
01C: 1541 
01D: 8128 
01E: D0O14 
01F: CE10 
020: D581 
021: 615A 
022: 0170 
023: 5c91 
024: c118 
025: 0113 
026: 8B05 
027: 9F20 


RECOVERP 


# 379Ah 


0123 


000: D9D2 
001: 9D20 


4313 
710A 
5511 
0605 
1822 
748A 
16BA 
1204 
4110 
ABAE 
ED71 
015F 
180€ 
3431 
11C0 
1418 
009F 


4567 


0ECE 
AEC8 


1174 
0713 
1913 
AF01 
81E8 
ECEO 
9281 
CF59 
E410 
F820 
19c9 
0159 
F57E 
0315 
CD5F 
DCE5 
2097 


89AB 


819F 
1CCD 


AF21 EDE 
5D2E CéE 
4118  7DB 
5211  40A 
3250 OB2 
7A79  O&C 
2812 c98 
B8AA  COC 
O11A 7F1 
O7CE 750 
1340 437 
015C 121 
0713 Eé67 
F015  A57 
E7D0 9F0 
2180 85A 
4E00 520 
747 
CHP48) 
219 octets 
CDEF sm 
F30D FDA 
20E8 F86 


002: 
003: 
004: 
005: 
006: 
007: 
008: 
009: 
00A: 
00B: 
00C: 
00: 
00E: 
00F: 
010: 
011: 
012: 
013: 
014: 
015: 
016: 
017: 
018: 
019: 
014: 
018: 


1008 
0D31 
78A8 
A8F2 
8D48 
46F2 
0197 
3034 
0142 
14A9 
8391 
4820 
B208 
6414 
88FE 
2c01 
B975 
147E 
8F84 
F841 
814D 
1081 
A8F2 
5208 
001D 
0B21 


F146 
B004 
32CC 
DB10 
D001 
019C 
3760 
0000 
1301 
6241 
3269 
1428 
A290 
2818 
7950 
1013 
071F 
E818 
1311 
411F 
32FF 
4D6c 
D760 
0863 
230A 
30 


608F 
071F 
8A8A 


B976 
0040 
2cc8 


88F7 3560 


A795 
2721 
1165 
CCAD 
43D8 
1601 
EF18 
A251 
1636 
F831 
D215 
0629 
4750 
FA&4 
4011 
B010 
FA3E 
9FD2 
8D32 
B080 
66DF 


01DD 
1680 
1421 
86E0 
3120 
328B 
2340 
3426 
OCF1 
3610 
E38A 
FE71 
7142 
E381 
0818 
031F 
SCF3 
301D 
0501 
8714 
B213 


DAE 
972 
968 
éD2 
512 
182 
cp2 
B79 
6FF 
359 
017 
BFD 
965 
554 
3D0 
118 
D2F 
B90 
écc 
399 
436 
2B8 
EFA 
B28 
93A 
D67 
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